home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs46.d81 / xmashits.sda / BOOT (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  124 lines
  1. 2 IFFL=0THENFL=1:RESTORE:GOSUB50:GOSUB50000:LOAD"H",8,1
  2. 3 IFFL=1THENFL=2:LOAD"S",8,1
  3. 5 IFFL=2THENFL=3:LOAD"H1",8,1
  4. 6 IFFL=3THENFL=4:LOAD"H2",8,1
  5. 7 IFFL=4THENFL=5:LOAD"C",8,1
  6. 8 IFFL=5THENFL=6:LOAD"D",8,1
  7. 9 KH=8*16
  8. 14 IFFL=6THENFL=7:FD=0:Q$=".V1":GOTO35000
  9. 15 IFFL=7THENFL=8:Q$=".V2":GOTO40010
  10. 16 IFFL=8THENFL=9:Q$=".V3":GOTO40010
  11. 20 GOSUB36000
  12. 30 POKE53272,23
  13. 40 GOTO90
  14. 50 A=13*4096+4*256
  15. 55 FORI=A+24TOASTEP-1:POKEI,0:NEXT
  16. 56 AD=3*16+11:SR=08*16+14
  17. 64 POKEA+17,3
  18. 65 POKEA+3,3
  19. 66 POKEA+10,3
  20. 67 POKEA+5,AD
  21. 68 POKEA+6,SR
  22. 69 POKEA+12,AD
  23. 70 POKEA+13,SR
  24. 71 POKEA+19,AD
  25. 72 POKEA+20,SR
  26. 80 POKEA+24,15:POKEA+23,8:RETURN
  27. 90 POKE56325,MT
  28. 92 TR=4096+13*256+12*16+14
  29. 93 IFFT=0THENFT=1:POKETR,0:POKETR+1,0:GOSUB1000
  30. 95 KH=6:POKE 56333,127
  31. 100 SYS(12*4096)
  32. 300 POKE56333,129:POKE53265,0
  33. 400 IFPEEK(788)=49THEN420
  34. 402 GETAA$:IFAA$="^"THENPOKE56333,127:POKE788,49:POKE789,234:POKE56333,129:GOTO500
  35. 410 GOTO400
  36. 420 SS=SS+1:IFSS>11THENSS=0
  37. 430 FL=6:GOTO14
  38. 500 SYSDE:PRINT"[147]"A=13*4096+4*256:POKEA,0:POKEA+1,0:POKEA+7,0:POKEA+8,0:POKEA+14,0:POKEA+15,0
  39. 501 POKE53281,1
  40. 502 PRINT"[147]   PRESS A SELECTION "
  41. 503 PRINT"   1 - SILENT NIGHT"
  42. 510 PRINT"   2 - LITTLE TOWN OF BETHLEHEM"
  43. 520 PRINT"   3 - DECK THE HALLS"
  44. 530 PRINT"   4 - ANGELS WE HAVE HEARD ON HIGH"
  45. 540 PRINT"   5 - JOY TO THE WORLD"
  46. 550 PRINT"   6 - GOOD KING WENCESLAS"
  47. 560 PRINT"   7 - HARK! THE HERALD ANGELS SING"
  48. 570 PRINT"   8 - COME ALL YE FAITHFUL"
  49. 580 PRINT"   9 - FIRST NOEL"
  50. 590 PRINT"   A - WE THREE KINGS OF ORIENT ARE"
  51. 592 PRINT"   B - JINGLE BELLS"
  52. 594 PRINT"   C - WE WISH YOU A MERRY CHRISTMAS"
  53. 600 GET W$:IFW$=""THEN600
  54. 610 IFW$="A"THENSS=09:GOTO430
  55. 620 IFW$="B"THENSS=10:GOTO430
  56. 622 IFW$="C"THENSS=11:GOTO430
  57. 630 IFVAL(W$)=0ANDW$<>"0"THEN600
  58. 650 SS=VAL(W$)-1:GOTO430
  59. 1000 PRINT"[147][144]":POKE53280,1:POKE53281,8
  60. 1010 P=12*4096+256:IN=P+156:CL=P+101:DE=P+167
  61. 1012 AR=P+128:CA=P+137:BR=P+217:CB=P+226
  62. 1100 POKECA,11*16+4:SYSAR
  63. 1110 POKECB,3:SYSBR
  64. 1111 POKE53265,16+15
  65. 1150 W0=PEEK(251):W1=PEEK(252):W2=PEEK(253):W3=PEEK(254)
  66. 1200 SYSIN:SYS4096+14*256+KH
  67. 1250 POKE251,W0:POKE252,W1:POKE253,W2:POKE254,W3
  68. 1300 RETURN
  69. 10000 REM
  70. 10020 POKE53272,23:POKE53265,16+15:POKE53281,1:PRINT"[147]"
  71. 10030 RETURN
  72. 34000 IF FD=1THENGOTO35001
  73. 34010 FD=1:RESTORE:GOTO35001
  74. 35000 GOTO34000
  75. 35001 REM
  76. 35002 FORI=0TO11:READZ1$:IFI=SSTHENZ$=Z1$
  77. 35003 NEXT
  78. 35004 FORI=0TO11:READZ1:IFI=SSTHENMT=Z1
  79. 35005 NEXT
  80. 35006 DATA SN,LT,DH,AH,JW,GK,HT,AF,FN,TK,JB,WW
  81. 35008 DATA 60,25,27,25,30,27,27,27,25,27,26,23
  82. 35010 GOTO40010
  83. 36000 FORI=0TO11:READZ1$:NEXT
  84. 36004 FORI=0TO11:READZ1:NEXT
  85. 36010 FOR I=0TO(SS*9):READL1:NEXT
  86. 36012 READL1,L2,L3,L4,L5,L6,L7,L8,L9
  87. 36020 A=13*4096+4*256
  88. 36030 POKE A+5,L1:POKEA+6,L2
  89. 36032 POKE A+12,L3:POKEA+13,L4
  90. 36034 POKE A+19,L5:POKEA+20,L6
  91. 36050 POKE51502,L7+1:POKE51503,L7
  92. 36052 POKE51509,L8+1:POKE51510,L8
  93. 36054 POKE51516,L9+1:POKE51517,L9
  94. 38000 DATA0,61,254,61,141,61,141,32,32,32
  95. 38002 DATA58,254,58,141,58,141,16,64,32
  96. 38004 DATA58,252,58,124,58,124,32,32,32
  97. 38006 DATA58,226,58,107,58,107,32,64,64
  98. 38008 DATA58,236,58,123,58,123,32,32,64
  99. 38010 DATA58,234,58,114,58,114,32,32,32
  100. 38012 DATA58,236,58,125,58,125,16,16,16
  101. 38014 DATA58,236,58,124,58,124,32,32,64
  102. 38016 DATA58,236,58,124,58,124,32,32,32
  103. 38018 DATA58,236,58,124,58,124,16,32,32
  104. 38020 DATA10,236,26,234,26,233,16,64,64
  105. 38022 DATA26,234,58,124,58,124,32,32,64
  106. 40000 REM
  107. 40002 RETURN
  108. 40010 A$=Z$:A$=A$+Q$:LOAD A$,8,1
  109. 50000 POKE53280,2:POKE53281,0:PRINT"[147]";
  110. 51000 PRINT"                  [169][223][146]"
  111. 51010 PRINT"                 [169]  [223][146]"
  112. 51020 PRINT"                [169]    [223][146]"
  113. 51030 PRINT"               [169]      [223][146]"
  114. 51040 PRINT"              [169]        [223][146]"
  115. 51050 PRINT"             [169]          [223][146]"
  116. 51060 PRINT"            [169]            [223][146]"
  117. 51070 PRINT"           [169]              [223][146]"
  118. 51080 PRINT"          [169]                [223][146]"
  119. 51090 PRINT"         [169]                  [223][146]"
  120. 51100 PRINT"     A WAVEFORM CHRISTMAS HIT DISK"
  121. 51200 PRINT"     (C)1983  WAVEFORM CORPORATION"
  122. 51300 PRINT"              ^ FOR MENU"
  123. 55000 RETURN
  124.